#!/usr/local/perl
use strict;
use warnings;

open(my $in, "<", "input.txt") or die "can't open input.txt:$!";
while(<$in>) {
	print $_; 
}

close $in or die "$in: $!"; 





